home *** CD-ROM | disk | FTP | other *** search
/ Games Gallery 98 / Games Gallery 98 - Disc 1.iso / Content / HENGE / Henge.exe / Henge.dxr / Order System_29_Order System Transition Functions.ls < prev    next >
Encoding:
Text File  |  1998-02-15  |  3.6 KB  |  139 lines
  1. on goPurchaseInfo direction
  2.   global selectedpiecelist, helpsquareoff, transition
  3.   if transition then
  4.     exit
  5.   end if
  6.   setidletype(-1)
  7.   set the keyDownScript to "nothing"
  8.   set the keyUpScript to "nothing"
  9.   set the member of sprite 119 to member "Blank"
  10.   set the member of sprite 120 to member "Blank"
  11.   dissolveScene()
  12.   updateStage()
  13.   if the platform contains "win" then
  14.     puppetPalette("Windows Palette", 60)
  15.   end if
  16.   set selectedpiecelist to []
  17.   set helpsquareoff to 0
  18.   resetSprites()
  19.   makeinkCopy(1, 120)
  20.   setStage("Purchase Info")
  21.   if direction = 1 then
  22.     set pushtype to 12
  23.   end if
  24.   if direction = 2 then
  25.     set pushtype to 13
  26.   end if
  27.   if direction = 3 then
  28.     set pushtype to 11
  29.   end if
  30.   if direction = 4 then
  31.     set pushtype to 14
  32.   end if
  33.   puppetTransition(pushtype, 3, 64, 0)
  34.   go(1)
  35.   updateStage()
  36.   setOrderSpriteGlobals()
  37.   setidletype(6)
  38.   set transition to 1
  39. end
  40.  
  41. on goOrderForm
  42.   global wrongentrycount, transition
  43.   if transition then
  44.     exit
  45.   end if
  46.   setidletype(-1)
  47.   if the platform contains "win" then
  48.     puppetPalette("Windows Palette", 60)
  49.   end if
  50.   set wrongentrycount to 0
  51.   resetSprites()
  52.   makeinkCopy(1, 120)
  53.   setStage("Order Form")
  54.   updateStage()
  55.   setOrderSpriteGlobals()
  56.   set membernamelist to ["First Name", "Middle Initial", "Last Name", "Card # 1", "Card # 2", "Card # 3", "Card # 4", "Exp Month", "Exp Year", "Area", "Phone # 1", "Phone # 2"]
  57.   repeat with n = 12 down to 1
  58.     set membername to getAt(membernamelist, n)
  59.     set thechannel to getChannel(membername)
  60.     set the editableText of sprite thechannel to 1
  61.     set the cursor of sprite thechannel to 1
  62.     set the text of member membername to EMPTY
  63.   end repeat
  64.   setidletype(7)
  65.   set transition to 1
  66. end
  67.  
  68. on goCallSafeCharge
  69.   global SCnumbersprite, entercodesprite, transition
  70.   if transition then
  71.     exit
  72.   end if
  73.   setidletype(-1)
  74.   if the platform contains "win" then
  75.     puppetPalette("Windows Palette", 60)
  76.   end if
  77.   resetSprites()
  78.   makeinkCopy(1, 120)
  79.   setStage("Call SafeCharge")
  80.   updateStage()
  81.   setOrderSpriteGlobals()
  82.   set the editableText of sprite getChannel("Key Code") to 1
  83.   set the text of member "Key Code" to EMPTY
  84.   set SCnumbersprite to getChannel("Phone Red Text")
  85.   set entercodesprite to getChannel("Enter Code") + 2
  86.   setidletype(8)
  87.   set transition to 0
  88. end
  89.  
  90. on goReceipt
  91.   global transition
  92.   if transition then
  93.     exit
  94.   end if
  95.   setidletype(-1)
  96.   if the platform contains "win" then
  97.     puppetPalette("Windows Palette", 60)
  98.   end if
  99.   resetSprites()
  100.   makeinkCopy(1, 120)
  101.   setStage("Receipt")
  102.   updateStage()
  103.   setOrderSpriteGlobals()
  104.   repeat with channel = 11 to 20
  105.     puppetSprite(channel, 1)
  106.     set the editable of the member of sprite channel to 0
  107.   end repeat
  108.   updateStage()
  109.   setidletype(9)
  110.   set transition to 1
  111. end
  112.  
  113. on goReRegister
  114.   global wrongentrycount, transition
  115.   if transition then
  116.     exit
  117.   end if
  118.   setidletype(-1)
  119.   if the platform contains "win" then
  120.     puppetPalette("Windows Palette", 60)
  121.   end if
  122.   set wrongentrycount to 0
  123.   resetSprites()
  124.   makeinkCopy(1, 120)
  125.   setStage("ReRegister")
  126.   updateStage()
  127.   setOrderSpriteGlobals()
  128.   set membernamelist to ["First Name", "Middle Initial", "Last Name", "Card # 1", "Card # 2", "Card # 3", "Card # 4", "Exp Month", "Exp Year", "Area", "Key Code"]
  129.   repeat with n = count(membernamelist) down to 1
  130.     set membername to getAt(membernamelist, n)
  131.     set thechannel to getChannel(membername)
  132.     set the editableText of sprite thechannel to 1
  133.     set the cursor of sprite thechannel to 1
  134.     set the text of member membername to EMPTY
  135.   end repeat
  136.   setidletype(10)
  137.   set transition to 1
  138. end
  139.